inherited fmClAgrInsur: TfmClAgrInsur
  Caption = #1048#1085#1092#1086' '#1087#1086' '#1089#1090#1088#1072#1093#1086#1074#1082#1077
  ClientHeight = 175
  ClientWidth = 249
  OnShow = FormShow
  ExplicitWidth = 257
  ExplicitHeight = 209
  PixelsPerInch = 96
  TextHeight = 13
  object Label4: TLabel [0]
    Left = 56
    Top = 8
    Width = 126
    Height = 13
    Caption = #1057#1090#1072#1074#1082#1072' '#1087#1086' '#1089#1090#1088#1072#1093#1086#1074#1082#1077', %'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clNavy
    Font.Height = -11
    Font.Name = 'Tahoma'
    Font.Style = []
    ParentFont = False
  end
  object Label1: TLabel [1]
    Left = 56
    Top = 51
    Width = 116
    Height = 13
    Caption = #1055#1086#1088#1086#1075' '#1089#1090#1086#1080#1084#1086#1089#1090#1080' '#1075#1088#1091#1079#1072
    FocusControl = edCANUMBER
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clNavy
    Font.Height = -11
    Font.Name = 'Tahoma'
    Font.Style = []
    ParentFont = False
  end
  inherited sbBottom: TStatusBar
    Top = 148
    Width = 249
  end
  inherited Panel1: TPanel
    Top = 103
    Width = 249
  end
  object edCATYPE: TcxDBLookupComboBox [4]
    Left = 56
    Top = 26
    DataBinding.DataField = 'CITYPE'
    DataBinding.DataSource = dlgDS
    Properties.DropDownListStyle = lsFixedList
    Properties.ImmediatePost = True
    Properties.KeyFieldNames = 'ITID'
    Properties.ListColumns = <
      item
        FieldName = 'ITCOST'
      end>
    Properties.ListOptions.ShowHeader = False
    Properties.ListSource = dsTypes
    Style.BorderStyle = ebs3D
    Style.Shadow = False
    Style.ButtonStyle = btsDefault
    TabOrder = 2
    Width = 153
  end
  object edCANUMBER: TDBEdit [5]
    Left = 56
    Top = 67
    Width = 153
    Height = 21
    DataField = 'CIGOODSCOST'
    DataSource = dlgDS
    TabOrder = 3
  end
  inherited dlgDS: TDataSource
    DataSet = qAgr
    Left = 8
    Top = 96
  end
  object qAgr: TIBQuery
    Database = DMInv.DBRead
    Transaction = DMInv.IBTransaction1
    AfterInsert = qAgrAfterInsert
    CachedUpdates = True
    SQL.Strings = (
      'SELECT *'
      '  FROM CLAGRINSURANCE C'
      ' WHERE C.CIID = :CIID   ')
    UpdateObject = quAgr
    GeneratorField.Field = 'CIID'
    GeneratorField.Generator = 'GCLAGRINSURANCE'
    Left = 40
    Top = 96
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'CIID'
        ParamType = ptUnknown
      end>
    object qAgrCIID: TIntegerField
      FieldName = 'CIID'
      Origin = '"CLAGRINSURANCE"."CIID"'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
    end
    object qAgrCAID: TIntegerField
      FieldName = 'CAID'
      Origin = '"CLAGRINSURANCE"."CAID"'
    end
    object qAgrCITYPE: TIntegerField
      FieldName = 'CITYPE'
      Origin = '"CLAGRINSURANCE"."CITYPE"'
    end
    object qAgrCIGOODSCOST: TIBBCDField
      FieldName = 'CIGOODSCOST'
      Origin = '"CLAGRINSURANCE"."CIGOODSCOST"'
      DisplayFormat = '#,##0.00'
      EditFormat = '0.00'
      Precision = 18
      Size = 2
    end
  end
  object quAgr: TIBUpdateSQL
    RefreshSQL.Strings = (
      'Select '
      '  CIID,'
      '  CAID,'
      '  CITYPE,'
      '  CIGOODSCOST'
      'from CLAGRINSURANCE '
      'where'
      '  CIID = :CIID')
    ModifySQL.Strings = (
      'update CLAGRINSURANCE'
      'set'
      '  CAID = :CAID,'
      '  CIGOODSCOST = :CIGOODSCOST,'
      '  CIID = :CIID,'
      '  CITYPE = :CITYPE'
      'where'
      '  CIID = :OLD_CIID')
    InsertSQL.Strings = (
      'insert into CLAGRINSURANCE'
      '  (CAID, CIGOODSCOST, CIID, CITYPE)'
      'values'
      '  (:CAID, :CIGOODSCOST, :CIID, :CITYPE)')
    DeleteSQL.Strings = (
      'delete from CLAGRINSURANCE'
      'where'
      '  CIID = :OLD_CIID')
    Left = 64
    Top = 96
  end
  object dsTypes: TDataSource
    DataSet = qTypes
    Left = 96
    Top = 96
  end
  object qTypes: TIBQuery
    Database = DMInv.DBRead
    Transaction = DMInv.IBTransaction1
    SQL.Strings = (
      'SELECT T.ITID, CAST(T.ITCOST AS VARCHAR(40)) ITCOST'
      '  FROM TARIFINSURANCE T'
      'UNION'
      'SELECT -1 ITID, '#39#1053#1077' '#1089#1090#1088#1072#1093#1086#1074#1072#1090#1100#39' ITCOST'
      '  FROM TARIFINSURANCE T'
      ' ORDER BY 1')
    Left = 120
    Top = 96
  end
end
